﻿Imports DATA
Imports REPORTES
Public Class oFm_planificacion

    Private WithEvents oPlanificacion As New planificacion_data

    Public _codigo As String = ""

    Private Sub oFm_planificacion_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub oFm_planificacion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TituloFormulario = "Crear/Modificar planificación"
        EstableceCodigo()
        If _codigo <> "" Then CargaPlanificacion()
    End Sub

    Sub CargaPlanificacion()
        Dim dt As DataTable = oPlanificacion.msoBuscar(_codigo)
        If Not IsNothing(dt) Then
            If dt.Rows.Count > 0 Then
                oDt_fecha.Value = CDate(Mid(dt.Rows(0).Item("PLAN_ID"), 1, 7))
                oTx_clase.Text = dt.Rows(0).Item("PLAN_CLASE")
                oTx_unidadaprend.Text = dt.Rows(0).Item("PLAN_UNI_APRENDI")

                oTx_activdadTermino.Text = dt.Rows(0).Item("PLAN_ACTIV_TERMINO")
                oTx_actividadDesarrollo.Text = dt.Rows(0).Item("PLAN_ACTIV_DESARROLLO")
                oTx_indicadorDesem.Text = dt.Rows(0).Item("PLAN_INDICADORES")
                oTx_aprendEsperado.Text = dt.Rows(0).Item("PLAN_APRENDI_ESPERADO")
                oTx_bibliografias.Text = dt.Rows(0).Item("PLAN_BIBLIOGRAFIA")
                oTx_contenido.Text = dt.Rows(0).Item("PLAN_TEMA_CONTENIDO")
                oTx_observaciones.Text = dt.Rows(0).Item("PLAN_OBSERVACIONES")
                oTx_procedimiento.Text = dt.Rows(0).Item("PLAN_PROCED_EVAL")
                oCb_curso.Text = dt.Rows(0).Item("PLAN_CURSO")
            End If
        End If
    End Sub

    Private Sub oPb_Salir_Click(sender As Object, e As EventArgs) Handles oPb_Salir.Click
        Me.Close()
    End Sub

    Private Sub oPb_guardar_Click(sender As Object, e As EventArgs) Handles oPb_guardar.Click
        oPlanificacion.minGuarda(oLb_codigo.Text, oTx_clase.Text, oCb_curso.Text, _
                                 oTx_unidadaprend.Text, oTx_indicadorDesem.Text, oTx_aprendEsperado.Text, _
                                 oTx_contenido.Text, oTx_actividadDesarrollo.Text, oTx_activdadTermino.Text, _
                                 oTx_procedimiento.Text, oTx_bibliografias.Text, oTx_observaciones.Text)
    End Sub

    Private Sub oPlanificacion_ErrorServer(Descripcion As String) Handles oPlanificacion.ErrorServer
        MsgBox(Descripcion, MsgBoxStyle.Critical, Me.Text)
    End Sub

    Private Sub oPlanificacion_GuardaCorrecto() Handles oPlanificacion.GuardaCorrecto
        limpiar()
    End Sub

    Sub limpiar()
        oDt_fecha.Value = Now
        oTx_activdadTermino.Text = ""
        oTx_actividadDesarrollo.Text = ""
        oTx_indicadorDesem.Text = ""
        oTx_unidadaprend.Text = ""
        oTx_aprendEsperado.Text = ""
        oTx_bibliografias.Text = ""
        oTx_contenido.Text = ""
        oTx_observaciones.Text = ""
        oTx_procedimiento.Text = ""
        oDt_fecha.Value = Now
        oCb_curso.SelectedIndex = -1
    End Sub

    Private Sub oTx_clase_TextChanged(sender As Object, e As EventArgs) Handles oTx_clase.TextChanged
        EstableceCodigo()
        Dim dt As DataTable = oPlanificacion.msoBuscar(oLb_codigo.Text)
        If Not IsNothing(dt) Then
            If dt.Rows.Count > 0 Then
                oDt_fecha.Value = CDate(Mid(dt.Rows(0).Item("PLAN_ID"), 1, 7))
                oTx_clase.Text = dt.Rows(0).Item("PLAN_CLASE")
                oTx_unidadaprend.Text = dt.Rows(0).Item("PLAN_UNI_APRENDI")

                oTx_activdadTermino.Text = dt.Rows(0).Item("PLAN_ACTIV_TERMINO")
                oTx_actividadDesarrollo.Text = dt.Rows(0).Item("PLAN_ACTIV_DESARROLLO")
                oTx_indicadorDesem.Text = dt.Rows(0).Item("PLAN_INDICADORES")
                oTx_aprendEsperado.Text = dt.Rows(0).Item("PLAN_APRENDI_ESPERADO")
                oTx_bibliografias.Text = dt.Rows(0).Item("PLAN_BIBLIOGRAFIA")
                oTx_contenido.Text = dt.Rows(0).Item("PLAN_TEMA_CONTENIDO")
                oTx_observaciones.Text = dt.Rows(0).Item("PLAN_OBSERVACIONES")
                oTx_procedimiento.Text = dt.Rows(0).Item("PLAN_PROCED_EVAL")
                oCb_curso.Text = dt.Rows(0).Item("PLAN_CURSO")
            Else
                limpiar()
            End If
        End If
    End Sub

    Sub EstableceCodigo()
        oLb_codigo.Text = UCase(Format(oDt_fecha.Value, "ddMMMyy")) & "" & Format(Val(oTx_clase.Text), "00")
    End Sub

    Private Sub oDt_fecha_ValueChanged(sender As Object, e As EventArgs) Handles oDt_fecha.ValueChanged
        EstableceCodigo()
    End Sub

    Private Sub oPb_imprimir_Click(sender As Object, e As EventArgs) Handles oPb_imprimir.Click
        Dim form As New oFm_ReportePlanificacion
        form.ShowDialog()
    End Sub
End Class
